home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / misc / RecentScript.lha / RecentScript / Plugins / RecentScript.thor < prev    next >
Encoding:
Text File  |  1997-09-05  |  1.3 KB  |  53 lines
  1. /*****
  2.   $VER: RecentScript THOR PlugIn 1.0 (30.8.97) ©Arndt van der Molen
  3.  
  4.  
  5.         RecentScript PlugIn for news/email reader THOR.
  6.  
  7.   Starts the MUIRexx application 'RecentScript' with the
  8.   currently selected article in the message list window
  9.   as argument.
  10.  
  11.   Installation:
  12.  
  13.   Select menu 'ARexx Scripts/Add Script' and choose a (free)
  14.   function key number. In the following filerequester select
  15.   this script.
  16.  
  17.   Known 'Bugs':
  18.    - THOR V2.4 seems to have problems with long pathnames for
  19.      ARexx scripts. If you get an information requester telling
  20.      "The ARexx program failed with these return codes: ..." at
  21.      execution of the script, edit the file THOR:THOR.macros and
  22.      replace the full path with the MUIRexx: assign or copy this
  23.      script to the 'THOR:rexx/' directory and reassign the
  24.      function key to it.
  25.    - Multiselection not supported
  26.    - Supports only one running THOR instance with portname 'THOR.01'
  27.    - Temporary file will not be deleted
  28. *****/
  29.  
  30. OPTIONS RESULTS
  31.  
  32. OPTIONS FAILAT 31
  33. currentmsg stem msg
  34. OPTIONS FAILAT 10
  35.  
  36. IF RC ~= 0 THEN DO
  37.   SAY THOR.LASTERROR
  38.   EXIT
  39. END
  40.  
  41. OPTIONS FAILAT 31
  42. savemessage CURRENT OVERWRITE FILE "T:RS.temp"
  43. OPTIONS FAILAT 10
  44.  
  45. IF RC ~= 0 THEN DO
  46.   SAY THOR.LASTERROR
  47.   EXIT
  48. END
  49.  
  50. ADDRESS COMMAND 'MUIRexx:MUIRexx "MUIRexx:RecentScript/RecentScript.rexx T:RS.temp" PORT RECENTSCRIPT'
  51.  
  52. EXIT
  53.